home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / bclock.src < prev    next >
Text File  |  1991-11-27  |  2KB  |  43 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ BCLOCK by Abhijeet J. Singh
  3. DIR
  4.   CLK
  5.     \<< "" \-> TM
  6.       \<< PICT PURGE { # 0h # 0h } PVIEW
  7.           PICT { # 26h # 0h } DC REPL
  8.           PICT { # 53h # 0h } DC REPL
  9.         WHILE 1 1 ==
  10.         REPEAT DATE TIME TSTR 'TM' STO
  11.           PICT { # 0h  # 0h } "D" TM 14 14 SUB + OBJ\-> REPL
  12.           PICT { # 13h # 0h } "D" TM 15 15 SUB + OBJ\-> REPL
  13.           PICT { # 2Dh # 0h } "D" TM 17 17 SUB + OBJ\-> REPL
  14.           PICT { # 40h # 0h } "D" TM 18 18 SUB + OBJ\-> REPL
  15.           PICT { # 5Ah # 0h } "D" TM 20 20 SUB + OBJ\-> REPL
  16.           PICT { # 6Dh # 0h } "D" TM 21 21 SUB + OBJ\-> REPL
  17.         END
  18.       \>>
  19.     \>>
  20.   DC
  21. GROB 7 19 0000000000C1C1C1000000C1C1C10000000000
  22.   D1
  23. GROB 19 19 0070000870000C70000C70000070000070000070000070000070000070000070000070000070000070000070000070000070000CF1000CF100
  24.   D2
  25. GROB 19 19 CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10CFFF10CFFF10CFFF10C10000C10000C10000C10000C10000CFFF10CFFF10CFFF10
  26.   D3
  27. GROB 19 19 CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10CFFF10CFFF10CFFF10
  28.   D4
  29. GROB 19 19 C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10000C10000C10000C10
  30.   D5
  31. GROB 19 19 CFFF10CFFF10CFFF10C10000C10000C10000C10000C10000CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10CFFF10CFFF10CFFF10
  32.   D6
  33. GROB 19 19 CFFF10CFFF10CFFF10C10000C10000C10000C10000C10000CFFF10CFFF10CFFF10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10
  34.   D7
  35. GROB 19 19 CFFF10CFFF10CFFF10000C10000E10000F0000870000C30000E10000F000007000007000007000007000007000007000007000007000007000
  36.   D8
  37. GROB 19 19 CFFF10CFFF10CFFF10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10
  38.   D9
  39. GROB 19 19 CFFF10CFFF10CFFF10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10CFFF10CFFF10CFFF10
  40.   D0
  41. GROB 19 19 CFFF10CFFF10CFFF10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10
  42. END
  43.